home *** CD-ROM | disk | FTP | other *** search
-
- ; LEADING LAP testversion unpacker : By Paul Stapley
- ; $VER: LEADING LAP unpacker v1.0 (03:20 24 September 1995.)
-
- (complete 0)
-
- (user 2)
-
- ( set vernum ( getversion ) )
- ( set ver ( / vernum 65536 ) )
- ( set rev ( - vernum (* ver 65536) ) )
-
-
- (message "\n\n\n `Leading Lap MPV' Preview Version Hard Disk Installation."
- )
-
- (set @default-source "llll:" )
-
- (set @default-dest
- (askdir
- (prompt "Select where to install Leading Lap")
- (help @askdir-help)
- (default (tackon @default-dest "LeadingLap"))
- )
- )
-
- (complete 10)
-
- (copylib
- (source "LeadingLap_A:Libs/lowlevel.library")
- (dest "LIBS:")
- )
- (complete 15)
- (copyfiles
- (source "LeadingLap_A:Gamefiles")
- (dest (tackon @default-dest "GameFiles"))
- (all)
- )
- (complete 25)
-
- (copyfiles
- (source "LeadingLap_A:Graphics")
- (dest (tackon @default-dest "Graphics"))
- (all)
- )
- (complete 30)
-
- (copyfiles
- (source "LeadingLap_A:Tracks")
- (dest (tackon @default-dest "Tracks"))
- (all)
- )
- (complete 35)
-
- (copyfiles
- (source "LeadingLap_A:S/HD_Game")
- (dest @default-dest)
- )
- (complete 38)
-
- (copyfiles
- (source "LeadingLap_A:Leading_Lap")
- (dest @default-dest)
- )
- (copyfiles
- (source "LeadingLap_A:Lapsetup.Doc")
- (dest @default-dest)
- )
- (copyfiles
- (source "LeadingLap_A:Leading_Lap.info")
- (dest @default-dest)
- )
-
- (complete 50)
-
- (askdisk
- (prompt "\nInsert LeadingLap Disk 2")
- (dest "LeadingLap_B")
- (help @askdisk-help)
- )
-
- (complete 60)
- (copyfiles
- (source "LeadingLap_B:Gamefiles")
- (dest (tackon @default-dest "GameFiles"))
- (all)
- )
- (complete 70)
-
- (copyfiles
- (source "LeadingLap_B:Graphics")
- (dest (tackon @default-dest "Graphics"))
- (all)
- )
- (complete 85)
-
- (copyfiles
- (source "LeadingLap_B:Tracks")
- (dest (tackon @default-dest "Tracks"))
- (all)
- )
-
- (complete 100)
-
- (exit)
-